program DShowCap;

uses
  Forms,
  umain in 'umain.pas' {fmain},
  uadjframerect in 'uadjframerect.pas' {fAdjustFrameRect};

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := 'DirectShow Demo';
  Application.CreateForm(Tfmain, fmain);
  Application.CreateForm(TfAdjustFrameRect, fAdjustFrameRect);
  Application.Run;
end.